Row

confirmed

380

Active Cases

347

recovered

27

death

6

Column

Map

Column

Town cases

COVID19 cases (Erie county)
town confirmed recovered deaths
Buffalo 147 NA NA
Amherst 73 NA NA
Cheektowaga 23 NA NA
Hamburg 22 NA NA
West Seneca 19 NA NA
Clarence 16 NA NA
Tonawanda 15 NA NA
Orchard Park 12 NA NA
Aurora 9 NA NA
Lancaster 9 NA NA
Grand Island 7 NA NA
Elma 5 NA NA
Alden 4 NA NA
Evans 4 NA NA
North Collins 4 NA NA
Lackawanna 3 NA NA
City of Tonawanda 3 NA NA
Marilla 1 NA NA
Colden 1 NA NA
Holland 1 NA NA
Eden 1 NA NA
Concord 1 NA NA
Collins 0 NA NA
Cattaraugus Indian Reservation 0 NA NA
Newstead 0 NA NA
Total 380 NA NA
Note:
Last updated: (updated 3/28/2020 8PM EST)
Data Source
Public Advisories
The data is only for educational and academic research purposes.

Daily cumulative cases

---
title: "COVID19 in Erie county"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    navbar:
      - { icon: fa-github, href: "https://github.com/hubentu/COVID19Erie"}
      - { title: "Erie Case Map", href: "https://erieny.maps.arcgis.com/apps/opsdashboard/index.html#/dd7f1c0c352e4192ab162a1dfadc58e1"}
    social: menu
    source_code: embed
    vertical_layout: scroll
---

```{r setup, include=FALSE, eval=FALSE}
library(flexdashboard)
library(fontawesome)
library(COVID19Erie)
pubExposed <- exposedPub()
```

```{r}
counts <- caseCounts()
Counts <- rbind(counts,
                c(town = "Total", colSums(counts[,-1])))
```




Row {data-width=400}
-----------------------------------------------------------------------

### confirmed {.value-box}

```{r}
valueBox(
  value = attributes(counts)$total.confirmed,
  caption = "Total confirmed cases",
  icon = "fas fa-ambulance",
  color = "purple"
)
```

### Active Cases {.value-box}
```{r}
valueBox(
  value = attributes(counts)$active.cases,
  caption = "Active cases",
  icon = "fas fa-hospital-user",
  color = "#1f77b4"
)
```

### recovered {.value-box}

```{r}
valueBox(
  value = attributes(counts)$total.recovered,
  caption = "Total recovered cases",
  icon = "fas fa-head-side-mask",
  color = "forestgreen"
)
```

### death {.value-box}

```{r}
valueBox(
  value = attributes(counts)$total.deaths,
  caption = "Death cases",
  icon = "fas fa-heart-broken",
  color = "#474747"
)
```


Column {data-height=800}
-----------------------------------------------------------------------
    
### Map
    
```{r}
caseMap(counts, pubExposed, titlePos = NULL)
```
   
Column {data-height=600}
----------------------------------------------------------------------

### Town cases

```{r}
library(knitr)
library(kableExtra)
kable(Counts,
      caption = "COVID19 cases (Erie county)") %>%
    kable_styling(full_width = TRUE) %>% 
    footnote(general = c(paste("Last updated:", attributes(counts)$update.time),
                         "[Data Source](https://erieny.maps.arcgis.com/apps/opsdashboard/index.html#/dd7f1c0c352e4192ab162a1dfadc58e1)",
                         "[Public Advisories](http://www2.erie.gov/health/index.php?q=public-advisories)",
                         "The data is only for educational and academic research purposes.")) %>%
scroll_box(height = "600px")
```

### Daily cumulative cases
```{r}
countPlot(historyCount)
```